home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / misc / Progr_Langs_v7.lha / Progr_Langs / Source / exe_timer.b < prev    next >
Text File  |  1999-01-31  |  253b  |  13 lines
  1. REM *** ACE version - obsolete ***
  2. DECLARE FUNCTION DateStamp LIBRARY "dos.library"
  3. DIM v&(2)
  4. DateStamp(varptr(v&))
  5. t1&=peekl(varptr(v&)+8)
  6. SYSTEM arg$(1)
  7. DateStamp(varptr(v&))
  8. t2&=peekl(varptr(v&)+8)
  9. t3&=t2&-t1&
  10. print t3&;" Datestamps."
  11. LIBRARY CLOSE
  12.  
  13.